CAADiameters_UranusSemidiameterA <-
function(Delta){
.Call("CAADiameters_UranusSemidiameterA", Delta)
}
